﻿Public Class Main

#Region "Form"
    Private Sub Main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        form_resize()
    End Sub
    Private Sub Main_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
        form_resize()
    End Sub
    Private Sub form_resize()
        Dim x As Integer = Me.Width - 32
        Dim y As Integer = Me.Height - 66
        FlowLayoutPanel1.Location = New Point(12, 27)
        FlowLayoutPanel1.Size = New System.Drawing.Size(x, y)
    End Sub
#End Region

#Region "Menu Strip"
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub

#Region "Edit Menu"
    Private Sub AddDeviceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddDeviceToolStripMenuItem.Click
        Dim device As String = InputBox("Enter IP/FQDN", "Device Input")
        Me.FlowLayoutPanel1.Controls.Add(New Device(device))

    End Sub
#End Region

#End Region

End Class
